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3 COPY 10G500 << sek 002500 2574 198 A(ENTPT POINT TO MAP ENTRY POINT TABLE 
uy et EEE ENE CHR E OSES 4 408 BOARUREOUSEES 64005 6555501 os cu eee bio eee eaeeeee 199 JAGR SO SSIES SEE SG GEE SOHO GR I CUMEEE ECE ARE EE EE Ee IIE 
5 xk ke 200 FE AR ee ee 2 2 2 2 2 2 2 i 2c 2 a ok oie 2k 2 oi oi 2c ok 2c ic 2 of 2c oe 2c ate ade af a oe of akc ake ae ak of ic ke fe ake ake ac a ake afc af ok ok akc ake of afc akc ok afc ake akc ok ok ak 
6 * ae PREREQUISITES OK * 201 ** oS 
7 x K 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3C00) eK 
8 * NONE x 203 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER ok 
9 x x 204 ** PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR x 
10 4 RC ICR IC IC ACC CIC IO OI GI IC I ik aoa kak ak ak i ak ak ak ake ofc ak ak ak 205 ** THE INDICATED MESSAGE (S). THERE ARE FOUR TABLES USED FOR THIS * 
11% x 206 #4 PURPOSE THFY ARE: 2 2k 
12 * eo D Cc eK % ae 
14 * MODIFICATION'S MADE TO CORRECT PROBLEMS ENCOUNTERED DURING TFSTING * H RESS OF THE RULE TO INVOKE AND ses 
14 * j rare en On ee ee EOE oe 210 *« THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. x 
16 ORCC IC RII IO III I I III i i I i koi ak Rak I a ak ik kak teak aot ak ake tok ak 211 ** ENTRIES ARE AS FOLLOWES OF 
vt a1 Se A) Bet SPE iQ on" EuguerBE STAN? AEA : 
18 * ok REA'S INCORPORATED Hea * z 
19 * - 214 ** C AN EQUATE FOR THE STEP NUMBER oe ac 
20 * NONE * 215 ** sed 
51 x e 216 ** RULE INFORMATION TABLE ok 
22 GCC OOOO OOK I ICICI GI IOI OI GI OI IO I III IO IOI Ca a Gk a ak ake ak ak ake ak 217 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE * 
33 1S EE HNTOMELTOBEERAED" HES UEUBE CATED BACSYTOEESNA? HSLOM, 
24 * Hea SPECIAL INSTRUCTIO eek BELOW. END OF TABLE IS die 
55 x ne as xx 220 ** INDICATED WITH A X'0000' FOR THE RULE EQUATE. 402k 
26 * NONE x 221 ** cae 
77 x * 222 ** SQUES Ko 
28 2A IO CO I IOC IOI I IR I I I OI IC ike ak akc ak ak ak ake ak 223. 4% A) RULE EQUATE X'0100° * 
59 x x 224 - B) ADDRESS OF THE YES LEG RULE - 
30 * ea E. C. HISTORY fe x 
a1 7 : 338 x pee A) RULE EQUATE X'0101! x 
32 * DATE 010CT76 DATE O2DEC76 DATE 15MAR77 DATE 103UN77 x Z sale 
33 * E.C. 578468  E.C. 578469 §E.C. 578714 E.C. 578625 x S56 nbs B) ADDRESS OF MESSAGE TO PRINT -. 
* 
35 2 io IOI I IR IR II II kk dk I kkk ak ak ak ak kak i kak ok ok oe a ake fe ake ok a4 oi $STOP A) RULE EQUATE x'0402¢ — 
002500 37 15001 START X'2500! START ADDRESS OF ALL 'I' TYPE PROG 
000100 38 OQUES EQU  xX'0100! EQUATED VALUE FOR MDI STATEMENT 232 %* B| ADDRESS OF MESSAGE ee 
000101 39 OFIXT FOU x*0101! EQUATED VALUE FOR MDI STATEMENT 233 ** gis 
000102 40 @STOP EQU  xX'0102' EQUATED VALUE FOR MDI STATEMENT 234 $GOTO +s 
000200 41 @GOTO EQU xX'02008 EQUATED VALUE FOR MDI STATEMENT 235 ** A) RULE EQUATE X!0200' * 
000201 42 @CALL EQU X*'0201! EQUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE be 
000300 43 OINPT FOU xX'0300! EQUATED VALUE FOR MDI STATEMENT 7 i C) NAME OF MAP TO GO TO i 
000400 44 @QUXX EQU x'O4OO! EQUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE oe 
000500 45 aTUXX FOU xX*'0500! EQUATED VALUE FOR MDI STATEMENT 239 *% E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE ies 
000600 46 ONVLD EQU X'0600! EQUATED VALUE FOR MDI STATEMENT ee oe 
000000 47 EO EOU. xX*0000! FOUATE FOR EQUAL 242 $CALL yaa 
000004 48 NE FOU x'O00g! EQUATE FOR NOT EQUAL 243 *% A) RULE EQUATE X*0201' ** 
000008 49 HI EOU x'0008' FOUATE FOR HIGH 24q ** B) ADDRESS OF NESSAGE es 
00000C 50 NH FOU x*'000C! EQUATE FOR NOT HIGH 245 ** C) NAME OF MAP TO CALL eee 
000010 51 Lo EOU ¥'0010' EQUATE FOR LOW 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE % 
000014 52 NL FOU x'O0148 EOUATE FOR NOT LOW 2U7 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE 2 ak 
000010 53 LT EQU X'00108 EQUATE FOR LESS THAN 248 *% dee 
00000C 54 LE EQU X'000C! EQUATE FOR LESS THAN OR EQUAL TO 249 *% SINPT shea 
000008 55 ct EQU X'0008' EQUATE FOR GREATER THAN 250 ** A) RULE EQUATE xX'03008 ek 
000014 56 GE EQU X¥'00148 EQUATE FOR GREATER THAN OR EQUAL TO 251 ** B) INPUT TYPE Sener ae OR_ HEX) ee 
000200 57 ON EQU X*0200! EQUATE FOR ON 2a2 ** C) ADDRESS OF YES LEG RULE dies 
000202 58 OF EQU X¥'02028 EQUATE FOR OFF 253 ** D) DESTINATION LOCATION OF INPUT DATA x 
000204 59 MX FOU xXx'02048 EQUATE FOR MIXED 258: &* E) LENGTH OF INPUT DATA seed 
000000 60 EBC EOQU X'0000! EQUATE FOR EBCDIC DATA TRANSFER 255 ** F) LOWER LIMIT OF GOOD DATA <* 
000001 61 HEX EQU X'0001! EQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA x 
000001 62 XTRNL EQU X'0001! EQUATE FOR EXTERNAL REFERENCE 257 ** ane 
000000 63 INTRNL EQU x' 0000! EQUATE FOR INTERNAL REFERENCE 258. ¥* SQUXX * 
000000 64 PARM EOU x'O000! EQUATE INDICATING PARAMETER 259 *% A) RULE EQUATE X'0400! > 
000001 65 DA EQU X'0001! FOUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE ie 
000002 66 UA EFOQU xX'0002!' EQUATE FOR UNIT ADDRESS 261 ** C) TU BRANCH TO ADDRESS ee oaanG nie 
000000 67 DUMMY EOU X¥'0000! DUMMY FQUATE 262 ** D) TU BRANCH TO ADDRESS (SECONDARY) * x 
001800 69 PID FOU *-x'ODOO! ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER IN BYTES - 
000232 70 PTYPE EQU *-KX"2ICEt ADDRESS OF PROCESSOR TYPE FIELD 264 *% F) PARAMETER TO PASS TO TU ae 
00180C 71 STEPNUM EQU PID+X'000C! ADDRESS OF DECIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ‘x 
00180E 72 OPWD1 EQU  PID+tX'OOOR® ADDRESS OF OPTION WORD ONE 266 ** +s 
001810 73 OPWD2 EQU PID+K'0010! ADDRESS OF OPTION WORD TWO 260.1 °** STUXX * 
001818 74 TUSTATUS EQU PID+X'00188 ADDRESS OF TU STATUS WORD 260°. %% A) RULE EQUATE X*0500' <* 
OO181A 75 TUWORK EQU PID+X'OO1A? ADDRESS OF TU WORK AREA 209 (** B) ADDRESS OF YES LEG RULE oe 
00189A 76 TUPARM1 EQU PID+X*®OO9A' ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS ok 
00189¢ 77 TUPARM2 EQU PID+X'009C! ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO MAKE ON RESULTS ak 
00189E 78 TUPARM3 EOQU PID+X"'OO9E! ADDRESS OF PARM 3 POINTER 212 *¥* E) LENGTH OF COMPARED RESUL bee 
0018A0 79 TUPARMY EOU PID#X'"OOAO® ADDRESS OF PARM 4 POINTER 273 ** F) MASK FIELD FOR COMPARE “* 
0018A2 80 TUPARMS EQU PID+X"OOA2® ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES =* 
OO18A4 81 TUPARM6 EQOU PID+X"'OOAUS ADDRESS OF PARM 6 POINTER Zio: ee H) PARAMETER TO PASS TO THE TU siied 
0018A6 82 TUPARM7 EQU PID+X"OOA6? ADDRESS OF PARM 7 POINTER 276 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ae 
0018A8 83 TUPARM8 EOQU PID+X*OOA8* ADDRESS OF PARM 8 POINTER 271] ** * ok 
OO1BAA 84 TUPARMS EQU PID+X'OOAA' ADDRESS OF PARM 9 POINTER 278 ** SNVLD <= 
O018AC 85 TUPARM10 EQU PID+X*OOAC! ADDRESS OF PARM 10 POINTER 279 ** A) RULE EQUATE X'0600! %* 
OO18AE 86 TUPARM11 EQU PID+X'OOAE! ADDRESS OF PARM 11 POINTER 281 ** bie 
0018B0 87 TUPARM12 EOU PID+X"QOOBO! ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE tis 
0018B2 88 TUPARM13 EQU PID+tx'OOB2! ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT * x 
0018B4 89 TUPARM14 EQU PID+X'OOBY? ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE xs 
001886 90 TUPARM15 EQU PID+X'QOB6! ADDRESS OF PARM 15 POTNTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: * % 
0018B8 91 TUPARM16 EOU PID+X'OORB! ADDRESS OF PARM 16 POINTER 286 ** =* 
OO18BA 92 TUMSGWTR EQU PID+X"OOBA' ADDRESS OF -> TO COMMON MSG WRITER 20) %* 5} NAME OF ENTRY POINT ¥* 
OO18BE 93 TUUA EQU PID+X'OOBE?® ADDRESS OF UNIT ADDRESS IN EBC 288 ** B) ADDRESS OF ENTRY POINT RULE TABLE eae 
0018C0 94 TUDA EQU PID+X*O00CO? ADDRESS OF DEVICE ADDRESS IN FBC 289 ** * + 
0018C2 95 TUBUFF EOU PID+X*O00C2t ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A X'0000! 4k 
0018C4 96 TULAST EQU PID+X'00C4! ADDRESS OF LAST ADDRESSABLE WORD 224, ** sis 
0018C6 97 TURESULN EQU PID+X*00C6! ADDRESS OF LENGTH OF TU RESULTS 292 *% MESSAGE TABLE ** 
0018C8 98 TURESUL EQU PID+X'00C8! ADDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR * 
0018FC 99 MAPNAME EOQU  PID+tX'OOFC! ADDRESS OF BAP NAME FIELD IN HEX 74 i: ae VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLIOWES: =e 
001948 100 TUINPT EQU PID+X'0148! ADDRESS OF $INPT DATA 295: -%* ies 
00196R 101 PARMARA Eu PID+X'O16E!* ADDRESS OF $INPT INPUT AREA 296 *% A) EQUATE FOR START OF MESSAGE BLOCK * 
0019B8 102 @DCADD1 EQU PID¢X'01B8! MDI POINTER 297 ** B) NUMBER OF LINES OF MESSAGE ase 
OO19BA 103 @DCADD2 EOU PID+X*O1BA! MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE pb 
0019c4 104 SUPSTAT EQU PID+X'O1C4! ADDRESS OF MDI STATUS 299 * D) FIRST LINE OF MESSAGE *% 
0919D0 105 DEVADD EQU PID+X'01D0! ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE +e 
0019DA 106 DEVADD1 EOQU PID+X*O1DA't ADDRESS OF DEVICE ADDRESS TABLF 1 30 f, e* F) SECOND LINE OF MESSAGE ** 
00194 107 DEVADD2 EQU PID+X'O1E4! ADDRESS OF DEVICE ADDRESS TABLE 2? 302 ** G) ETC. ee 
OO019BRE 108 DEVADD3 EQU PID+X'O1EE! ADDRESS OF DEVICE ADDRESS TABLE 3 303 ** *% 
0019F8 109 DEVADDY EQU PID+Xt*O1F8! ADDRESS OF DEVICE ADDRFSS TABLE 4& 304 (PPE ee See SSS SSS SS SS LSS TS SSS SSS SC CSS SSC SL SC SSS CSC SS CSC SSCL LCS oC LCCoL SST See ee ee 
QO1A0C 111 DEVADD6 EQU PID+X'020C! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 112 DEVADD7 EU PID*X'0216' ADDRESS OF DEVICE ADDRESS TABLF 7 
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15001 --- MANUAL TIMER WRAP DIAGNOSTIC P/N=1635162 EC=578625 PAGE 03 15001 --- MANUAL TIMER WRAP DIAGNOSTIC P/N= 1635162 EC=578625 PAGE O3A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
OOOO00F 544 BS15 ae 15 00268C 6F03 27D0 664 BAL OFF,R7 GET TO LVL 3 
546 OPY T5001 002690 6F03 26EA 665 BAL INTER, R7 PRINT INTERNAL RTN/CKPT NUMBER 
0025F2 547 T5001 * 666 * THE ADDRESS THAT ERROR OCCTIRED 
SUG ORO IIR OR IOR OI IR IEC IO IO OI Rg gk ai af ok ok akc a ofc akc 667 * AT, AND THE STATUS WORD- 
509 OOO ig a ak a kok kako ak ak ake ic ok akc of ak ak a a 668 * BIT O= TEST STARTED BIT 
550 ** * 669 * BIT 14= UNEXPECTED TIMER INT 
551 ** T I MER DIAGUNOS FT C I 670 * BIT 15= ERROR OCCURED BIT 
552 ** (EXTERNAL CLOCK AND EXTERNAL GATE TEST) % 002694 5018 671 J EEND 
553 ** eK 672 * 
554 ** * x 673 * GOOD END ROUTINE 
555 ** THIS DIAGNOSTIC TESTS THE FUNCTIONS OF 2K 674 * 
556 ** EXTERNAL CLOCK AND EXTERNAL GATE. THE WRAP a 002696 675 GEND EQU * 
557 ** CONNECTOR MUST BE INSTALLED BEFORE THIS TEST ae XK 002696 6301 676 DIS 1 
558 ** IS EXECUTED. % 002698 6F03 27D0 677 BAL OFF, R7 GET TO LVL 3 
559 ** % 00269C 4020 18C8 0000 678 MVWI 0,TORESUL SET STATUS WORD TO O 
560 ** WHEN AN ERROR IS DETECTED, INSTRUCTIONS ARE OK 0026A2 679 CEND EGU * 
561 ** GIVEN TO REPLACE THE TIMER ATTACHMENT. A PRINT- ** 0OO026A2 6908 2A86 680 MVW SAVA,R1 GET XFER VECTOR ADDRESS 
562 ** GIVING THE FAILING INTERNAL ROUTINE/CHECKPOINT, ** 0026A6 9060 2780 681 MVD SDCP (RY) RESTORE DCP XFER VECTORS 
563 ** THE ADDRESSt4&4 BYTES IN THE PROGRAM WHERE THE *% OO26AA 8828 278C OOOA 682 MVW SAVA1, X! OOA® RESTORE DCP MCK RTN ADDR 
564 *x ERROR WAS DETECTED, AND THE STATUS WORD IS % 0026B0 6201 683 EN 1 
565 ** PRINTED. % 3K 0026B2 4020 2B66 26C4 684 MVA CEND1,LLSB GO TO LVL O AND THEN LEX VIA SVC - 
566 ** THE STATUS WORD BITS SIGNIFIGANCE ARE- % X 0026B8 4724 0000 685 MVWI 0,R7 EXIT SO THAT THE DCP DOESNT GET - 
567 ** BIT-00 TEST STARTED - TURNED ON AT % 0026BC 5F26 2B66 6 86 SELB R7,LLSB MESSED UP. 
568 ** BEGINNING, AND OFF AT END OF TEST. %* 687 * 
569 ** BIT-14 AN UNEXPECTED TIMER INTERRUPT % 0026C0 6802 0000 688 GOBCK B x— RETURN TO DCP ON LEVEL 3 
570 ** OCCURED % 0026C4 6006 689 CEND1 SVC EXIT EXIT LEVEL 0 DROP TO LEVEL 3 
571 ** BIT-15 ANY ERROR OCCURED BIT % AK 690 * ERROR END ROUTINE - TURN ON ERROR BITS IN STATUS WORD 
572 ** %K 3K 691 * BEFORE COMING HERE. 
WKREELISESICSCSCSS SCS CSS COCCS OSS L SCL SS PSSST SL ST SS SSCL CSS CL SS Te SS 692 * 
WHE SS SS SS SSS SSCS CSS S SSS SSS SSC SSS SCS SSS LSS SS SS SS TS Le SL a Se se 0026C6 693 EEND EQU * 
0025F2 6802 2C32 576 B TO 0026C6 6908 18C8 694 MVW TURESUL,R1 GET STATUS WORD 
S77 * 0026CA 7920 7VJFFF 695 NWI X'7FFF!,R1 TURN OFF TEST STARTED BIT 
578 * QOO026CE 690D 18C8 696 MVW R1 TURESUL PUT STATUS WORD BACK 
579 2 ROK RO io a ok I ak iota kok kok kk ak ak ok of ok ok ok ok ok kak ak 2k 0026D2 SORT 697 ra cEND 
580 * NAME- DELAY SUBROUTINE 698 * 
581 * 0026D4 699 ERTN Eu * 
582 * PURPOSE- PROVIDE ANY NUMBER OF 1- USEC DELAYS 0026D4 4020 2746 26D4 700 MVA ERTN,EA SET ADDR TO BE PRINTED 
583 * BEFORE RETURNING TO THE CALLER. 'DEL1! QOO26DA 5003 701 J UNSET 
584 * CAN BE CHECKED ANYTIME FROM A HIGHER 0026DC 702 ORTN EQU * 
585 * LEVEL TO DETERMINE WHAT THE REMAINING 0026DC 4020 2746 26DC 703 MVA ORTN,EA SET ADDR TO BE PRINTED 
586 * COUNT IS. O0O0O26E2 402c 18C8 0002 704 UNSET OWI X¥'0062', TURESUL SET UNEX INT BIT IN STAT WD 
587 * 0026E8 50C9 705 J BBB 
588 * CALLING SEQUENCE-R6 MUST CONTAIN THE RETURN ADDR. 706 * 
589 * RS MUST CONTAIN THE HEX NUMBER OF 10 707 * 
590 * MICROSEC. DELAYS (MINUS 1). QO26EA 708 INTER EQU * 
591 * OO26EA 6FOD 2744 709 MVW R7,RINTE+2 SET UP RETURN 
592 * RETURN- AT RETURN NO REGISTERS WILL HAVE BEEN OO26EE 4020 279A 2748 710 MVA TREN PARM3 PUT DATA ADDR IN CNTL BLK 
593 * DIFIED. OO026F4 4724 2798 711 MVA PRRND. R7 PUT ADDR OF CNTL BLK IN R7 
594 KO Ro kk kok kk ak kok loki kk kok lok kk took ok kk akc ae ak kc ak ake oe kc kc ofc a ake kok OO26F8 601A 712 SVC HTOE HEX TO EBCDIC 
0025F6 595 DEL EQU * OO2Z6FA 9028 2792 275E 713 MVD BADDR, IRC PUT EBCDIC DATA IN MSSG 
O0O025F6 6DO0D 260E 596 MVW RD, iL SET COUNT IN STORAGE 002700 4020 279A 2746 714 MVA EA PARM3 PUT DATA ADDR IN CNTL BLOCK 
OO25FA 6EOD 2606 597 MVW Re; DEL2+? SET UP RETURN 002706 601A 715 SVC HTOE HEX TO EBCDIC 
OO25FE 4029 260E FFFF 598 DELX AWIL ce 002708 9028 2792 276C 716 MVD BADDR,EEA PUT EBCDIC DATA IN MSSG 
002604 6800 0000 599 DEL2 BZ oe RETURN * 10 USEC- 00270E 4020 279A 18C8 717 MVA TURESUL, PARM3 PUT DATA ADDR IN CNTL BLOCK 
002608 5000 600 NOP 7 PER- 002714 601A 718 SVC HTOE HEX TO EBCDIC 
OO260A 5000 601 NOP * PASS. 002716 9028 2792 277A 719 MVD BADDR,STAT PUT EBCDIC DATA IN MSSG 
00260C 50F8 602 J DELX LOOP *x 00271C 4724 27CE 720 MVA RCMSG,R 
OO260E 0000 603 DEL1T DC A (*¥-* 002720 4424 180E 721 MVA OPWD1,R4 
002610 0000 604 DC A (*-* 002724 4C05 722 TBT oF 5) 
606 3 IORI I GIO oto OI ak dO iO ok io ki a i kok ak a kak ak ak ak ak ak ok ok 002726 120D 7123 N INTE JUMP IF NO PRINT IS ON 
607 * NAME- MACHINE CHECK SUBROUTINE 002728 6C08 2748 724 MVW IRTN,R4Y PUT INTERNAL RIN/CKPT IN R4& 
608 * 00272C 6B08 2746 725 MVW FA,R3 * REG 3 HAS THE ADDRESS THAT THE- 
609 * PURPOSE- TO FIELD MACHINE CHECKS WHEN THEY OCCUR, 002730 7B61 FFFC 726 AWIL -4W,R3 * ERROR WAS DETECTED AT. 
610 * TERMINATE THE PROGRAM, PRINT A MESSAGE, AND 002734 4224 0000 727 MVWI 0 k2 ZERO R2 
611 * RETURN TO THE DCP, 002738 6908 180C 728 MVW P£D+ 12, R1 PUT ADDR. & TYPE CODE IN Ri 
612 * 00273C 6808 180A 729 MVW PID+10,R0 PUT STEP NUMBER IN RO 
613 * CALLING SEQUENCE- VIA MACHINE CHECK XFER VECTOR. 002740 6000 730 Svc OUT PRINT MESSAGE 
614 * 002742 6802 0000 731 RINTE B K = 
615 * RETURN- EVENTUALLY TO THE DCP. 732 * 
616 OI IOI GC IOI GIGI ICI OGIO GIGI GIO Ok kok kk kak ak lok sak ae ak ak ak sk ake ake akc ake ake ak 002746 0000 733 EA DC A (*-* 
002612 617 HK EQU * 002748 0000 734 IRTN DC A fea) 
002612 6301 618 DIS 1 DISABLE INTERRIPTS 002749 735 ICKPT EQU IRTN+1 
002614 582F 267A 619 CPPSR SVPSW PUT PSW IN STORAGE OO2Z74HA 0000 736 DC A (*-* 
002618 8838 0008 2746 620 MVW X'0008'*, EA SET UP ER ADDR FOR INTER SUBR 00274C CIDSE3C5D9ID5C1D34 737 RCMS DC CAINTE RNAL RTN/CKPT=° 
00261E 6F03 26EA 621 BAL INTER, R7 PRINT INTERNAL RTN/CKPT MSSG 00275E 00000000 738 IRC DC 2A (Fa * 
002622 8828 267A 2792 622 AVW SVPSW,BADDR SET UP TO CONVERT SAVED PSW 002762 6B4O0C5D94OCIC4HCHED 739 DC C', ER ADDR='* 
002628 6A08 2792 623 MVW BADDR, Le PUT PSW IN R 00276C 00000000 740 EEA DC 2A (*-* 
00262C 4020 279A 2796 624 AVA DADDR, PARM3 PUT DATA ADDR IN CNTL BLK 002770 6B4UO0E2ZE3CIE340E6C 741 DC Cle STAT WD=' 
002632 4724 2798 625 MVA PARM2, R7 PUT CNTL BLK ADDR IN R7 OO277A 00000000 742 STAT DC 2A (*¥- 
002636 601A 626 SVC HTOE HEX TO EBCDIC 00277E 0000 743 DC 24 S000 
002638 9028 2792 27BE 627 MVD BADDR,PSW PUT EBCDIC PSW IN MSSG 744 x 
628 * 002780 00000000 745 SDCP Dc ae bs x DCP XFER VECTOR SAVE AREA 
00263E 6808 180A 629 MVW PID+10,R0 PUT STEP NUMBER IN RO 002784 2788 746 DUMVE DC A (LDCB 
002642 4020 279A 180A 630 MVA PID+10, * PARM3 PUT DATA ADDR IN CNTL BLK 002786 278A T47 DC A (IDCB+2) 
002648 601A 631 SVC HTOE HEX TO EBCDIC 748 * 
OO264A 9028 2792 27AA 632 MVD BADDR, RTN PUT EBCDIC RTN IN MSSG 002788 26D4 749 IDCB DC A (ERTN EVEN DDB 
633 * OO278A 26DC 750 DC A (ORTN ODD DDB 
002650 6908 180C 634 MVW PTD+12,R1 PUT ADDR. & TYPE CODE IN R1 751 * 
002654 4020 279A 180C 635 NVA hee es  PARM3 PUT DATA apuK IN CNTL BLK 00278C 0000 752 SAVA1 DC A (*-* 
OO0265A 601A 636 svc HT HEX TO EBCDI 00278E 0O0CO 7153 DC X*OO0CO! 
00265C 9028 27B4 637 MVD BADDR, CKPT PUT EBCDIC REN IN MSSG 002790 27A0 754 PARM1T DC A (MKMSG) 
638 * 002792 00000000 755 BADDR DC 2A (*-*) 
002662 6B08 2746 639 MVW PUT SAVED TAR IN R3 002796 0000 756 DADDR DC A (*-*) 
002666 9028 276C 27C8 640 MVD EEA TAR PUT EBCDIC IAR IN MSSG 002798 0002 757 PARM2 DC A (2) 
641 * 00279A 0000 758 PARM3 DC A ssa 8 
642 * 00279C 2792 759 PARMY DC A (BADDR) 
00266C 4724 2790 643 MVA PARM1,R7 GET CNTL BLK ADDR 00279E 3803 760 DC xX* 3803! 
002670 6C08B 2610 644 MVW ST,R4 PUT ADDF OF LAST IDCB USED IN R4& 0027A0 D4UC3D24U06040D4C1D 761 MKMSG DC C'MCK - MAP='t 
002674 6000 645 svc OUT PRINT MESSAGE OO27AA 00000000 762 RIN DC at ae papel 
002676 6802 26C6 646 B EEND OO2Z7AE 4OE2ZE3C5D77E 763 DC C' STEP='t 
00267A 0000 647 SVPSW DC A (*-*% 0027B4 00000000 764 CKPT DC 2A (*-* 
Gee 2 af 2 ae 2 ik fc a ake 2k iC a a ai Se ak ake af oe ke ae oe kc ake kk ak ak a of afc ook a afc ofc ake ic ake ab ake a ok ak af ake af ak akc a a ofc ac akc ke 0027B8 40O40D7TE2ZE67E 765 pc Cc’ psw=t 
650 * NANE- ENDING SUBROUTINES OO2Z7BE 00000000 766 PSW DC 2A (*-* 
651 * 0027C2 4O4O0C9ICTIDITE 767 DC Cf TAR=! 
652 * PURPOSE- END PROGRAM EXECUTION WHEN GOOD RUNS AND 0027C8 00000000 768 IAR DC 2A (*-*) 
653 * ERRORS OCCUR. 0027CC 0000 769 DC x*OQO000! 
654 * OO27CE 274C 770 RCMSG DC A (RCMS) 
655 * CALLING SEQUENCE- BRANCH TO THE CORRECT LABELS. 7T71=* 
656 * 773 CRC IO IO oI OI I ioc i oko kok ok i koto ak ak ak ak teak ak ak ak ok i oe ak 
657 * RETURN- TO THE DCP. 774 * NAME- GO TO LEVEL 3 SUBROUTINE 
658 OIC I OR ICI IGG OI GI IOI GIGI III IG IGOR IG a ak ak ak ak a ak ak ak ak ak ak ake ak 775 * 
00267C 659 BBB EQU % 776 * PURPOSE- GET CPU ON LEVEL 3. 
00267C 6301 660 DIS 1 DISABLE INTERRUPTS T77 * 
OO0267E 402Cc 18C8 0001 661 OWL 1, TURESUL SET ERROR CONDITION FOR MDI 778 * CALLING SEQUENCE-R7 MUST CONTAIN RETURN ADDRESS. 
002684 680C 290C 662 To RSO RESET EVEN TIMER 779 * 
002688 680C 2910 663 To RS1 RESET ODD TIMER 780 * RETURN- TO ADDRESS CONTAINED IN R77. 
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HEX LOCATION (000028D8) IN CSECT(I5001 ) LENGTH (4) 
ry bea ea IN CSECT(1I5001 ) LENGTH (1) 
Heo IN CSECT(I5001 ) LENGTH (1) 
HEX LOCATION (OOOO02A3A) IN CSECT(1I5001 ) _LENGTH (2) 

1795 1985 1986 1992 1993 2014 2015 

2029 2030 2045 2046 
wey ROCATLGN ORSRZ 02K 2M GSEGTCTERO™ gh VENOTHIN 
HE LOcaTYON (09002838) IN CSECT(1I5001 } LENGTH (1) 

1643 1660 1678 170 1752 1771 1843 
HEX, LOCATION (0000280C) IN CSECT (15001 ) LENGTH (2) 
HET eno eet ages) IN CSECT (15001 ) LENGTH (2) 
HEX LOCATION (0000267A) IN CSECT (15001 ) LENGTH(2) 
MeN eee ou a CSECT (I5001 ) LENGTH (1) 
HEX LOCATION (00002C32) IN CSECT(1I5001 ) LENGTH (1) 
HEX LOCATION (00002C80) IN CSECT(1I5001 ) LENGTH (1) 
HEX LOCATION (00002CB6) IN CSECT(1I5001 ) LENGTH (1) 
HEX LOCATION(O0002CCA) IN CSECT(1I5001 ) LENGTH (1) 
HEX LOCATION (QOOO2CEC) IN CSECT(1I5001 ) LENGTH (1) 
HEX LOCATION (00002D16) IN CSECT(1I5001 ) LENGTH (1) 
HEX LOCATION(OOOO2D3E) IN CSECT(1I5001 ) LENGTH (1) 
HEX LOCATION (00002D56) IN CSECT(I5001 ) LENGTH (1) 
HEX LOCATION(00002D82) IN CSECT (15001 ) LENGTH (1) 
HEX LOCATION(OOOO2DAE) IN CSECT(I5001 ) LENGTH (4) 
HEX LOCATION (QOOO2DBA) IN CSECT(1I5001 ) LENGTH (1) 
HEX LOCATION (OOOO2DF4) IN CSECT (15001 ) LENGTH (1) 
HEX LOCATION (00002E32) IN CSECT(1I5001 ) LENGTH (1) 
HEX LOCATION (QOOO2E74) IN CSECT(I5001 ) LENGTH (4) 
HEX LOCATION (00002E86) IN CSECT(1I5001 ) LENGTH (1) 
HEX LOCATION (QOO002EC2) IN CSECT(1I5001 ) LENGTH (1) 
HEX LOCATION(OO002ED6) IN CSECT(15001 ) LENGTH (4) 
HEX LOCATION (OOOO2EFC) IN CSECT(1I5001 ) LENGTH (1) 
HEX LOCATION (00002F26) IN CSECT(I5001  ) LENGTH(1) 
HEX LOCATION (QOOO2F4E) IN CSECT(I5001 ) LENGTH (1) 
HEX LOCATION (00002F66) IN CSECT(I5001 ) LENGTH (1) 
HEX LOCATION (QOO0O2F94) IN CSECT(I5001 ) LFNGTH (1) 
HEX LOCATION (O0002FC2) IN CSECT(I5001 ) LENGTH (1) 
HEX LOCATION (00002FCE) IN CSECT(I5001  ) LENGTH (1) 
HEX LOCATION (Q0000300A) IN CSECT(I5001 ) LENGTH (1) 
HEX LOCATION (OOOO0304A) IN CSECT(I5001 ) LENGTH (1) 
HEX LOCATION (QOO000308E) IN CSECT(1I5001 ) LENGTH (4) 
HEX LOCATION (000030A0) IN CSECT(1I5001 ) LENGTH (1) 
HEX LOCATION (000030EA) IN CSECT(I5001 ) LENGTH(4) 
HEX LOCATION (OO0030FE) IN CSECT (15001 ) LENGTH (1) 
HEX LOCATION (0000310C) IN CSECT(15001 ) LENGTH (1) 
HEX LOCATION (0000313C) IN CSECT(I5001 ) LENGTH (1) 
HEX LOCATION (00003142) IN CSECT(I5001 ) LENGTH (1) 
HEX LOCATION (00003154) IN CSECT(1I5001 ) LENGTH (1) 
HEX LOCATION (00003162) IN CSECT(I5001 ) LENGTH (1) 
HEX LOCATION (00003178) IN CSECT(1I5001 ) LENGTH (2) 
HEX LOCATION (0000317A) IN CSECT(1I5001 ) LENGTH (1) 
HEX LOCATION (00003196) IN CSECT(I5001 ) LENGTH (4) 
HEX LOCATION (OO00031A4) IN CSECT(I5001 ) LENGTH (1) 
HEX LOCATION(0O00031BA) IN CSECT(I5001 ) LENGTH (6) 
HEX LOCATION (000031CC) IN CSECT(I5001 ) LENGTH (6) 
HEX LOCATION(OO00031EA) IN CSECT (15001 ) LENGTH (2) 
HEX LOCATION (OOO0031EC) IN CSECT(1I5001 ) LENGTH (6) 
HEX LOCATION (00003204) IN CSECT(1I5001 ) LENGTH (4) 
HEX LOCATION (00003212) IN CSECT(1I5001 ) LENGTH (1) 


T5001 -- 


DECLARED 
1964 
1968 
1978 
1989 
1992 
1996 
2001 
2006 
2011 
2018 
2022 
2029 
20 34 
2040 
2044 
2049 
2053 

547 
TO4 


NAME 
T217 
T218 
T219 
T221 
T222 
T223 
T224 
f220 
T226 
T227 
T228 
T229 
T230 
T231 
T232 
T233 
T234 
T5001 
UNSET 


MANUAL TIMER WRAP DIAGNOSTIC 
CROSS-REFERENCE LISTING 


ATTRIBUTES 


ADDRESS. 
1959 

ADDRESS. 
1966 


aah 

> 
oO 
o 
to 
td 
Nn 
nN 
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RESS. 
RESS. 
RESS. 
RESS. 
RESS. 
RESS. 
RESS. 
RESS. 
RESS. 
RESS. 
RESS. 
RESS. 
RESS. 
RESS. 
RESS. 
RESS. 


N HNO NO - = = = 


Nm NN 
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NN NM NH NO 
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AND 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


REFERENCES 

LOCATION (0000325C) 
LOCATION (0000326A) 
LOCATION (00003278) 
LOCATION (000032A8) 
LOCATION (000032AE) 
LOCATION (000032C0) 
LOCATION (000032CE) 
LOCATION (000032E4) 
LOCATION (000032E6) 
LOCATION (00003302) 
LOCATION (00003310) 
LOCATION (00003326) 
LOCATION (00003338) 
LOCATION (00003356) 
LOCATION (00003358) 
LOCATION (00003370) 
LOCATION (00003378) 
LOCATION (000025F2) 
LOCATION (000026E2) 


P/N=1635162 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


AIC IC OO IO GO agora ok uioiokckiokdek LAST PAGE 


CSECT (15001 
CSECT(I5001 
CSECT (15001 
CSECT (15001 
CSECT (15001 
CSECT(I5001 
CSECT (15001 
CSECT(I5001 
CSECT(I5001 
CSECT(I5001 
CSECT (15001 
CSECT(I5001 
CSECT (15001 
CSECT(1I5001 
CSECT (15001 
CSECT(I5001 
CSECT (15001 
CSECT (15001 
CSECT(I5001 


Ae Ae 2 ee he he fe 2 2 2k ie he a af 2 2 a 2h ae 2 afc 2 2h ke 2 ehh 2 a 22 hc ae ae eae ofeach ake 


eee eee ee 


EC=578625 


PAGE 12 


COPYRIGHT IBM CORP 1976 


LENGTH (4) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (6) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (4) 
LENGTH (1) 
LENGTH (6) 
LENGTH (6) 
LENGTH (2) 
LENGTH (6) 
LENGTH (4) 
LENGTH (1) 
LENGTH (1) 
LENGTH (6) 





